// TOWN SPECIAL ENCOUNTERS
//    Town 16: Gale

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(320,"Pasi");
	set_personality_name(321,"Mayor Rali");
	set_personality_name(322,"Commander Leona");
	set_personality_name(323,"Langley");
	set_personality_name(324,"Cole");
	set_personality_name(325,"Alba");
	set_personality_name(326,"Zachariah");
	set_personality_name(327,"Herb Seller");
	set_personality_name(328,"Nantier");
	set_personality_name(329,"Velnas");
	set_personality_name(330,"Kalen");
	set_personality_name(331,"Stern");
	set_personality_name(332,"Dharas");
	set_personality_name(333,"Asp");
	set_personality_name(334,"Gelahd");
	set_personality_name(335,"Hssrrr");
	//set_personality_name(,"Gale Citizen");
	set_personality_name(337,"Carol");
	set_personality_name(338,"Mrrurr");
	set_personality_name(339,"Roselei");
	set_personality_name(340,"Mario");
	set_personality_name(341,"Herb Addict");

	set_name(1621,"Skribbane Customer");
	set_name(1642,"Skribbane Customer");

	set_name(1613,"Gale Citizen");
	set_name(1614,"Gale Citizen");
	
	sf(19,9,0);
	
	set_crime_tolerance(max_crime);

		if (revive_party()) {
			print_str_color("Entering a friendly major city heals your wounds",2);
			print_str_color("  and restores your spell energy.",2);
			}
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1640,"I can let you in.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1640,"Hello, traveler.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1640,"Gale's gates are sealed.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1640,"Avoid City Hall.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1601,"You shouldn't be here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1601,"Who are you?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1601,"Why are you here?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1602,"You are an outsider.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1602,"We are watching you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1602,"You aren't allowed here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1602,"The Empire is in control.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1603,"Be careful out there.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1603,"You're an outsider.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1603,"I won't tell on you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1603,"Need a drink?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1604,"We have rooms.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1604,"No fighting.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1604,"Don't make me come out there.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1605,"(Sip.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1605,"Sigh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1606,"Beware skribbane.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1606,"Avoid the evil herb.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1606,"This is a sick place.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1606,"You are a ray of hope.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1606,"I can teach you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1632,"Welcome.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1632,"This is a place of peace.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1632,"Have a seat.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1632,"Enjoy this refuge.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1629,"I can make elixirs.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1629,"I will help you, outsider.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1629,"I don't have skribbane.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1608,"I am ... a mage.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1608,"I sell ... knowledge.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1608,"I won't ask questions.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1608,"You need things?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1610,"Welcome.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1610,"You can practice here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1610,"I'm busy.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1643,"I am a fletcher.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1643,"We have javelins.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1643,"High quality bows?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1643,"The attacks won't stop.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1611,"Our shop was hit.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1611,"The bolts get closer.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1611,"We're all afraid.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1611,"This is a proper shop.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1630,"Have ... weapons?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1630,"I trade.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1630,"I've made fine weapons.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1630,"Did you hear that?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1616,"Mighty hero!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1616,"Bless you!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1616,"Please spare a coin.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1616,"The fire always comes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1615,"Mrrr.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1615,"Please help.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1615,"All lost.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1615,"Spare a coin?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1619,"No more ships.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1619,"Have to get out of here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1619,"Mrrurr owns that skiff.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1619,"No more ships.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1619,"The inn is dirty, but safe.");
	if ((get_ran(1,0,100) < 10) && (gf(16,8) == 0))
		give_char_text_bubble(1620,"Need a boat?");
	if ((get_ran(1,0,100) < 10) && (gf(16,8) == 0))
		give_char_text_bubble(1620,"My skiff is for sale.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1620,"Hrmmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1620,"Another round.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1607,"Ahhh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1607,"Yes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1607,"More.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1617,"Food.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1617,"I sell.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1617,"(Sip.)");


	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_town()) && (tick_difference(last_abil,get_current_tick()) > 0))) {
		last_abil = get_current_tick();
		if ((gf(19,9) > 0) && (get_ran(1,0,100) < 70)) {
			inc_flag(19,9,-1);
			if (gf(19,9) == 0) {
				teleport_party(17,48,FALSE);
				ok_dlog(89,2);
				}
			}
		}

break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

